10 S=54272
20 FORI=0TO24:POKES+I,0:NEXT
40 POKES+5,15:POKES+6,240
45 POKES+12,2:POKES+13,2*16
50 POKES+19,32+7:POKES+20,7*16+9
60 POKES+24,15
70 POKE53280,6:POKE53281,6
80 PRINT"[147][155]SOUND# 1"
81 PRINT"[163][163][163][163][163][163][163][163]"
85 PRINT"SEA AND SEAMEWS"
90 FORT=1TO1000:NEXT
100 POKES+4,129:POKES+11,129
110 POKES+1,10:POKES+8,255
120 POKES+23,241
130 POKES+24,15+16
135 FORT=1TO500:NEXT
140 FORI=40TO200STEP3
150 POKES+22,I:POKES+1,I-(I/50)^2
160 FORT=1TO3:NEXT
165 IFINT(RND(1)+.02)=1THENGOSUB300
170 NEXT
180 FORT=1TO300:NEXT
190 FORI=180TO30STEP-2
200 POKES+22,I:POKES+1,I+20
210 FORT=1TO10:NEXT
215 IFINT(RND(1)+.02)=1THENGOSUB300
220 NEXT
230 FORT=1TO3000:NEXT
240 GOTO140
300 POKES+15,45+INT(RND(1)+.4)
310 POKES+16,65:POKES+17,50
320 POKES+18,65
330 FORII=170TO0STEP -4
340 POKES+14,II:NEXT
350 POKES+18,64
360 RETURN